home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8404.arc / SEARCH2.BAS < prev    next >
BASIC Source File  |  1986-09-14  |  896b  |  32 lines
  1. '$$$$$$$$$$$$$$ 
  2. 'Subroutine 
  3. '$$$$$$$$$$$$$$ 
  4. ' 
  5. '    This is the modified sequential search subroutine. 
  6. '    Input is the table in which to look up (ITABLE), 
  7. '    the number of entries in the table (NTABLE), and 
  8. '    the number whose index is to be found (JKEY).  
  9. '    Output is the index (INDX) such that  
  10. '    TABLE(INDX) = JKEY 
  11. ' 
  12. '    MODIFIED SEQUENTIAL SEARCH 
  13. ' 
  14. 8000 rem Start. 
  15. REM CMP   cmp = 0 
  16. ' 
  17.      for i. = 11 to ntable+10 step 10 
  18. REM CMP     cmp = cmp + 1. 
  19.        if (ntable <= i.) then goto 8010 
  20.        if (itable(i.) < jkey) then goto 8020 
  21. ' 
  22. '    ITABLE(i.) < jkey; go back and look through last 10 entries. 
  23. ' 
  24. 8010   jstart. = i.-10 
  25.        for j. = jstart. to i. 
  26. REM CMP       cmp = cmp + 1. 
  27.          if (itable(j.) = jkey) then indx=j.: return 
  28.        next j. 
  29. ' 
  30. 8020 next i. 
  31.      return 
  32.